EEEEEEEEEEEEEEE MMM MMM =UUU UUU LLL AAAAAAAAA TTTTTTTTITTTTTITT 
EEEEEEEEEEEEEEE MMM MMM = UUU UUU LLL AAAAAAAAA TTTTTTTTTTTTIITT 
EEEEEEEEEEEEEEE MMM MMM = =UUU UUU LLL ARAAARABDA TTTTTTTTTITTTITT 
EEE MMMMMM = =OMMMMMM =(UUU YUU LLL AAA AAA TTT 
EEE MAMMMM = =6MMMMM = =6UUU UUU LLL AAA AAA TTT 
EEE MAMMMM =6MMMMMM =6UUU UUU LLL AAA ABA TTT 
EEE MAM 6 OMA OM UUU LLL AAA Aan TTT 
EEE MAM OMA OMMM (UU UUU LLL AAA TTT 
EEE MAM 6 6OMMM OMMM (UU UUU LLL AAA AMA TTT 
EEEEEEEEEEEE MMM MMM = =UUU YUU LLL ABA hae TTT 
EEEEEEEEEEEE MMM MMM UUU LLL AAA AAA TTT 
EEEEEEEEEEEE MMM MMM = UUU UUU LLL TTT 
EEE MMM MAM = UUU UUU LLL AAAAAAAAAAAAAAA TTT 
EEE MMM MMM = =UUU UUU LLL AAAA TTT 
EEE MMM MMM = UUU UUU LLL ADAAAAAAAAAAAAA TTT 
EEE MMM MMM UUU LLL AA TTT 
EEE MMM MMM = UUU UUU LLL AAA ABA TTT 
EEE MMM MMM = UUU UUU LLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM = UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA ABR TTT 
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VV vv AAAAAA XX 
VV VV AAAAAA XX 
VV VV AA AA XX 
vv VV AA AA XX 
VV VV AA AA 
VV VV AA AA 
VV VV AA As 
vv VV AA AR 
VV VV AAAAAAAAAA 
vv VV AAAAAAAAAA 
vv vv AA AA XX 
vv WV AR AA XX 
vv AB AA XX 
vv AA AA XX 
LL IIII1] 
LL H1I1111 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL 1] 
LL II 
LL I] 
LL I] 
LL I] 
LL I] 
LLLLLLLLLL III] 
LLLLLLLLLL HII] 


AOOMOOOOOON 
AOAAOOMOOOAN 


AAA Att tt tt st 
AAA AAA 
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-TITLE VAXSDECIMAL_CONVERT = VAX-11 Packed Decimal Instruction Emulator 
‘]oeN Yv0e-000) 


RARER EAAAEKEHAEAEAEAAAEAA AAA AAAAAAAAAAAAAAEAAAARAAAAARAAAAARAARAEEEAAAAAEAEEEEEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
a 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. “ 
e 
® 
& 
® 
a 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ooo 
peje lolelelolole lolol oleolol oleate ole lo) 


SoOooooooooSo 


. . 
eaeneeneneneeeeneneaeeneaannene 


MmARABARAABAAASAAAAAAAARAAEALELAAAALERASASALESASALAR ARERR RE RARA RR RR ASA SAA ASSAD SE OS | 


Sete Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge 
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Facility: 
VAX=-11 Instruction Emulator 

Abstract: 
The routines in this module emulate the VAX-11 instructions that 
convert between packed decimal strings and the various forms of 
numeric string. These procedures can be a part of an emulator package 
or can be called directly after the input parameters have been loaded 
nto the architectural registers. 


The input parameters to these routines are the registers that 
contain the intermediate instruction state. 


Environment: 


These routines run at any access mode, at any IPL, and are AST 
reentrant. 


Author: 

Lawrence J. Kenah 
Creation Date 

19 October 1983 


SOOOooooooooooooooooooooooooooooao oo ooo 
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SOOCOCCOOCOOOCOCOSOO OOOO OOOOCOOOOOOOOSoOOOoOoOOoSoO 
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; Modified by: 


v01-003 LJK0040 Lawrence J. Kenah 24-Jul-1984 
Longword context instruc ay CINCL and DECL) cannot be used 
to modify the sign byte in the destination string for CVTSP. 


: | 
4: v01-=002 LuK0024 Lawrence J. K 20-Feb-1984 

$ Add code that nendles access eT tee Fertere minor cleanup. 

; v01-001 t Jk0008 Lawrence J. K 19-0 t-1983 


he emulation code for CVTPS, eeeTPT, CVTSP, and CVTTP 
oe moved into a separate module. 
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6 - SUBTITLE Declarations | 
73 ; Include files: 
8 »NOCROSS 3; No cross reference for these | 
8 - ENABLE SUPPRESSION ; No symbol table entries either 
0 CVTPS_DEF ; Bit fields in CVIPS registers | 
6 1 CVIPT DEF : Bit fields in CVIPT registers | 
¢ CVTSP_DEF ; Bit fields in CVTSP registers | 
00 ? CVTTP_DEF ; Bit fields in CVTTP registers 
090 3 SPSLDEF ; Define bit fields in PSL | 
$000 87 - DISABLE SUPPRESSION ; Turn on symbol table again | 
444 3 -CROSS 3; Cross reference is OK now 
$090 90 ; External declarations: 
0000 91 
0000 3 - DISABLE GLOBAL 
0000 9 
0000 94 EXTERNAL - 
0000 «= 95 VAXSDECIMAL_EXIT,- 
0000 46-9 VAX$DECIMAL~ACCVIO,- 
0000 97 VAXSROPRAND 
0000 98 
0000 99 ; PSECT Declarations: 
0000 100 
444 i) ~DEF AULT DISPLACEMENT , WORD 
vateag 8 108 -PSECT _VAX$CODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
0000 105 BEGIN_MARK_POINT 
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- SUBTITLE VAXSCVTPx = Convert Packed to Numeric String 
Functional Description: 


The conversion from a packed decimal string to a numeric strin 
(CVTPS and CVTPT instructions) consists of much common code an 
two small pieces of code that are instruction specific. the 
Nye mes portion of the end processing. The actual routine 
en 


r 
0 19 
00 111; 
0 We 3 
3 113 ; 
000118; 
00 139 ; pat he common exit path from the decimal instruction 
0900 1 : emulator, VAXSDECIMAL_EXIT. 
$0 119 : The two routines perform instruction-specific operations on the 
44 120 ; first byte in the stream. The bulk of the work is done by a common 
000 121; subroutine. Some instruction-specific end processing is done before 
8000 : § : final control is passed to VAXSDECIMAL_EXIT. 
900 s ; The structure is something Like the following. 
0000 126: CVTPS CVTPT 
9000 f i ee Une Ae Seer ee Sete co ea 
0900 ! , ; Store sign character Store table address 
0000 131; ' Unpack registers 
0000 13 ; ' 
0000 133; 1 { 
0000 134; \ / 
0000 135; \ / 
0000 136; \ / 
0000 137; H : 
0000 139 ' ’ 
9000 140 ; Handle unequal srclen and dstlen 
0000 148 ; Move all digits except last digit 
0000 143; 
0000 144 ; H ‘ 
0000 145; / \ 
0000 146 ; / \ 
0000 147; / \ 
0000 148 ; H : 
444 4 : v v 
3000 151 ; Move last digit to output Use table to move last digit 
0000 136 3 and sign to output string 
0000 153; H 
0000 154; ' H 
4 155 ; \ / 
000 138 5 \ / 
0000 157; \ / 
0000 158; : : 
0000 160 ; : : 
000 161: VAXSDECIMAL_EXIT 
000 16¢ : Set condition codes and registers 
000 163; to their final values 


—COMWMMNIOWZ BOK ACH TOMOOCWZSES ACK TOM IOOWOZS Sr ACH LOM OOMZ™Z Sr ACH TO MOO 
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Input Parameters: 
See instruction=-specific entry points 
; Output Parameters: 
Rt 


on 


0 
Address of byte containing most significant digit of 
the source string 


Address of lowest addressed byte of destination string 
(See instruction-specific header for details) 


Condition Codes: 


N <= source string LSS 0 
Z <= source string EQL 0 
! = ges tees overflow 


- SUBTITLE Data Declarations / Packed to Numeric String 


s@ 

; The following table makes a correspondence between the sixteen possible 
; packed decimal ‘‘digits’’ and their ASCII representation, It is used to 

3 ap honed the sign character for eet separate numeric strings and 

; to generate all character output for the CVTPx common code. 


CVTPx_TABLE : 
ASCII /10123456789+-+=++/ 


COOOCOGCOCOGCOOCOCOCOCOCOOCOOCOOOCOOOOOCOOCOO <! 
COODVDOOCOCSCOSCOCSCOOCCSOCSOSCOOCOSOOSCOOCOOSOOOCOOOOOoOoCoOOoOO + 
SOSCTSOSCOSCOOSCOOOCSOSOOCOOOCOCSOO OOOO OOSCoOoOoOoOoOoO UCU 
iele l= lS leleloleleleleleleleleleleleleleleleleleleolelololololololola) 

a a ~s _ + —) _ > — 2 — 2 > 2s > > —s 2» 2b - 2» 2s 2) ss 9 4 2 2 2 5 ox 
WOOO COODWDDWOOWOWOOWONNNNNNNNNNOOOAOAS 0 Ff 
ASW OS ODONAUE WN 0 ODNOULS WN" OOOnNOus Fd 


2D 2B 39 38 37 36 35 34 33 32 31 30 0 
2B 2B 2D 2B 0 


Pp 
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vert Packed to Leading Se 5-SEP-1984 EMULAT.SRCJVAXCONVRT.MAR; 1 
«SUBTITLE VAXSCVTPS = Convert Packed to Leading Separate Numeric 
Functional Description: 


VAXSDECIMAL_CONVERT = VAX 
v04=0 VAXSC 


The source packed decimal string specified by the source length and 
source address operands is converted to a leading separate numeric 
string. The destination string specified by the destination length and 
destination address operands is replaced by the result. 


Conversion is ettected by repsee te the lowest addressed byte of the 
destination string with the ASCII character ‘+’ or ‘=", determined by 
the sign of the source string. The de bytes of the destination 
string are replaced by the ASCII representations of the values of the 
corresponding packed decimal digits of the source string. 


Input Parameters: 


RO = srclen.rw Length in digits of input decimal string 
Ri = srcaddr.ab Address of input packed decimal string 
R2 = dstlen.rw Number of digits in destination character string 
R3 = dstaddr.ab Address of destination character string 
Output Parameters: 
RO = 0 ay: 
Ri = Address of byte containing most significant digit of 
a2 = the source string 
R3 = Address of the sign byte of the destination string 


Condition Codes: 


N <= source string LSS 0 
27 <= source string EQL 0 
i! a gre rees overflow 


OOCVOOOCOCOC COCO COCOCOCCOCCOOCOCOCOCOCOOOCOOCOOOOOOoOOO “4 


Note that the two entry points VAXSCVTPS and VAXS$CVTPT must save the 


ee ed a 4 2 sd — 3) 2d as —) —) — 9 — 9 «2 2s 8 od —) — 9 2 bd 2d 2 as a — 2 a td a vo 


COOCOCCOSCOCOCOCOSOOCO OOOO OSOOOOOOOOOCOCOOOOO OOOO OOOOOOOOOOOOOOOCOOOCOO <I 
pee ew wm law awl awl al al ala lala le lew ww lolol owl elololeolelelelelolelelelelelelolelolelelelelelolelelololelololo ow L 
FW OOO NAME WIN 0 OO NAME WIN 9 OD NAME WN @ O WO NAUE WN OUOONOULSWN—OOM JF 


3 
Q 23 exact same set of registers because the two routines use a common exit 
0 $2 path that includes a POPR instruction that restores registers. In 
0 4 fact, by saving all registers, even if one or two of them are not 
8 : needed, we can use the common exit path from this module. 
0 4 
8 44 VAXSCVTPS:: 
OFFF 8F 8B 4 PUSH #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Save the lot 
14 4 ESTABLISH_HANDLER - ; Store address of access 
14 4 CONVERT 1” ie ; violation handler : ee a 
33.0 6CUMGCOTtiéiP 19 4 EXTZV. = #1,44,R0 7 RB is byte offset to sign ‘digit 
1E 24 MARK_POINT fviPs ACV Ig ag 
58 6148 FO 8F 1€ 5 BICB3 #*B811110000,(R1)CR8],.R8 ; R& now contains sign ‘‘digit’ 
4 5 MARK_POINT CVTPS Spee ‘ ; ; 
83 DB AFS8 90 4 2 MOVB CVTPx_TABLECR8J,(R3)+ ; Store sign character in output string 
008A 30 $e 2 BSBW CVTPx_ COMMON ; Execute bulk as common code 


VAXSDECIMAL CONVERT = VAX=-11 P 
v04-000 


VAX$C 


POPIPININNININININININININININININYININYNININIMYAINININININININININININININININIPIPINININ = Oe 
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+ 
The common code routine returns here with the following relevant input. 


RO Number of digits remaining in source and destination strings 
R1 Address of least significant digit and sign of input string 
R3 Address of last byte in destination to be loaded 

R8 Sign ‘‘digit’’ from input string 

R11 Saved PSW with condition codes to date (N=0,7,V,C=0) 
CVTPS_A_DSTADDR(SP) Saved R3 at input, address of sign character 


R4 is a scratch register 


If the input string was negative zero, the sign of the output string must 
be changed from "=" to ‘'+'", In addition, a check is required to insure that 
the Z-bit has its correct setting if this digit is the first nonzero digit 
encountered in the input string. 


OGOCOCCSOCOCOCSCO COCO COSCO OCO COCO OOOSOOOOOoOOoOO -— 


COOCCGCOOOCGCOCCOOOOCOGOOOOOCOOOOOCOOOOOOOOOOCOOOOOOCOOOOO <I 
990 OO TTT HHH FHS SS YNOOM OOOOAOOOAAAAAAAOOOOOO Ww 
WOOO O0 OOOO 00000 0009 0909 09 09 09 09 SINS SIN NSN NINN NOAA AAOOOOUMIUNUM OD 
WOO NAME WN OOO NAW EWR 0 OD NOUS WIN) | 0 OONOUE WW OUOOnNeu °F 


50 3S TSTL ; Check for no remaining input 
oF BEQL 20$ ; Skip storing digit if nothing left 
MARK POINT CVTPS_ACCVIO 
54 61 O04 04 EF EXTZ0 = #4,#4,(R1) ,R4 ; Get least significant digit 
os. is BEQL 1 : Skip os Z-bit if zero 
5B 04 BA BICB #PSL$M_Z,R11 ; Clear saved Z-bit 
MARK_POINT CVTPS_ACCVIO 
63 C2 AF44 90 10$: MOVB CVTPx_TABLECR&), (R3) ; Store final output digit 
208: CASE R8,LIMIT=#10,TYPE=B,<- ; Dispatch on sign 
40$,- : 10 => + 
30$,- 3; 11=>- 
40$,- 3; 12 => + 
30$,- 3; 13 => - 
40$,- 3 14 => + 
40$,- ; 15 => + 
> 
58 08 88 900 30$: BISB #PSLSM_N,R11 ; Set N-bit because sign is ‘=" 
08 5B 02 €1 005 BBC #PSL$V_Z,R11,40$ ; Skip if N-bit set but Z-bit clear 
5B 08 8A 005 BICB #PSLSM_N,R11 ; Turn off N-bit if negative zero 
04 5B 01 4=+E€0 005 BBS #PSL$V_V,R11,40$ 3; Leave sign alone if overflow occurred 
05 MARK_POINT VTPS§_ACCVIO ps 
OC BE 26 90 005 #*A''+’’ ACVTPS A_DSTADDR(SP) =: Make output sign ‘+ 
FF9C' 31 006 408: BRW VAXSDECIMAL_ERIT ; Exit through common code 
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$ 1 - SUBTITLE VAXSCVTPT = Convert Packed to Trailing Numeric 

a ; Functional Description: 
4 5 3 The source packed decimal string specified by the source length and 

pee 86 ; source address operands is converted to a trailing numeric string. The 
0064 07 ; destination string specified by the destination length and destination 
0064 08 ; address operands is replaced by the result. The condition code N and 
G06 o 3 bits are affected by the value of the source packed decimal string. 

064 11 3 Conversion is effected by using the highest addressed byte (even if the 
BR6e \¢ 3 source string yatue is -0) of the source string (i.e., the byte 

64 12 3 containing the s gn and the least significant gis the as an unsigned 
0064 14; index into a 256 byte table whose zeroth entry address is specified by 
0064 3 3 the table address operand. The byte read out of the table replaces the 
Bnet 16 ; least significant byte of the destination string. The remaining bytes 

064 1” 3 of the destination string are replaced by the ASCII representations of 
0064 18 ; the values of the corresponding packed decimal digits of the source 
0064 19 ; string. 
0064 20 ; 
0064 21 ; Input Parameters: 
0064 $6 ; ; 
0064 323; RO <15:0> = srclen.rw Length in digits of input decimal string 4 
0064 324 ; RO <31:16> = dstlen.rw Number of digits in destination character string 
0064 325; R1 = srcaddr.ab Address of input packed decimal string ; 
0064 326; Re = tbladdr.ab Address of 256-byte table used for sign conversion 
apoE $56 ; R = dstaddr.ab Address of destination character string 
0064 4 ; Output Parameters: 
0064 ; 0; 
0064 31 3 RO = 0 ; : At 
0064 $35 3 R3 = Address of byte containing most significant digit of 
Beee $37 3 ‘ the source string 
Bpee 335 3 R35 = Address of most significant digit of the destination string 
0064 37 ; Condition Codes: 
0064 38 ; 
0064 39 ; N <= source string LSS 0 
0064 40 ; Z <= source atring EQL 0 
0064 41; V <= decimal overflow 
0064 re : C <- 0 
0064 43 ; 
8 oe rt 3; Notes 
0064 46; 1. Note that the two entry points VAXSCVTPS and VAXSCVTPT must save the 
0064 47 ; exact same set of registers because the two routines use a common exit 
0064 48 ; path that includes a POPR instruction that restores registers. In 

064 49 ; fact, by saving all registers, even if one or two of them are not 

bet 29 3 needed, we can use the common exit path from this module. 
tee 26 ; 2. This routine and VAXSCVTTP must have a separate JSB entry point. 

064 23 3 (Several other routines could use one but it is not required.) Code 

064 54 ; that uses the emulator rou its JSB gntry points cannot be 

064 a2 2 redirected to a different entry point when the instruction is 

64 2$ : restarted after an access violation, The only way that a restart can 
0064 7 3 be distinguished from a first pass is through an internal FPD bit. The 


Pp 
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original sizes for the five operands for CVTPT and CVTTP require all 
the bits in the four general registers. 


The FPD bit is stored in bit<15> of the ‘’srclen’’ operand. In order to 
insure that instructions that enter the emulator through the 
VAX$_OPCDEC exception, rather than through its JSB entry points 
correctly generate reserved operands for lengths in the range 32768 to 
65535, the internal FPD bit cannot be tested at the VAX$ entry point. 
Thus, the extra entry point is required. 


Note that this implementation has the peculiar effect that a reserved 
operand exception will not be gonereted if RO<15:0> contains a number 
in the range 32768 and 32768+31 inclu.ive. 


The_RESTART entry point is needed because information is saved in 
RO<31:24> if the instruction is interrupted by an access violation. 
This information must be cleared out before the length checks are made 
or a spurious reserved operand exception would result. 


Ww 
7 


VAXSCVTPT_JSB:: 
BBCC #CVTPT_V_FPD,RO,VAXSCVTPT ; Have we been here before? 


ASSUME CVTPT_B_DELTA_PC EQ 3 ; Make sure that we clear the right byte 
VAXSCVTPT_RESTART:: 


0750 OF €5 


50 FFOOOO00 BF CA Fe] BICL2 #*XFF000000,R0 ; Eliminate delta-PC from ‘‘dstlen’’ 
QO6F VAXSCVTPT:: 
OFFF 8F BB O006F PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Save the lot 
0073 ESTABLISH HANDLER - ; Store address of access 
0073 CONVERT_ACCVIO ; violation handler 
59 652 0078 MOVL R2,R9 ; Store table address away 
52 50 10 9¢ 0078 ROTL #16,R0,R2 ; Store ‘‘dstlen’’ in R2 
0034 30 OO7F BSBW CVTPx_COMMON ; Execute bulk as common code 

8. 

0082 : The common code routine returns here with the following relevant input. 

008 ; R1 Address of least significant digit and sign of input string 
bog : R Number of digits in destination string (preserved across call) 
00 3 R Address of Last byte in destination to be loaded 

008 : R9 Address of 256-byte table (preserved across call) 

bos : R11 Saved PSW with condition codes to date (N=0,7,V,C=0) 

i : R4 is a scratch register 

08 : The CVTPS instruction Loads R8 in its initialization code. This instruction 
OB ; does not need R8 except at this time to determine the setting of the N-bit 
0 ; so R8 is loaded here. In addition, a check is required to insure that the 
08 ; Z-bit has its correct setting if the least significant digit is the first 

. 3; nonzero digit encountered in the input string. 

0 e 

52.5 TSTL R ; Check for no remaining input 
| ee 4 BEQL 10$ ; Skip storing digit if nothing there 

0086 MARK_POINT CVTPT_ACCVIO 


woom 
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MOVZBL (R1),R4 ; Get last input digit 

MARK _POINT CVTPT_ACCVIO 

MOVB (RO) CRS), (R3) 3; Store associated destination byte 

MARK_POINT €VTPT_ACCVIO 

EXTZ0 «= #4,#4,(R1),R4 ; Get least significant digit 

BEQL 10$ : Skip clearing Z-bit if zero 

1cB #PSL$M_Z,R11 ; Clear saved Z-bit 


MARK _POINT cyrPl ascule 
10$: BICB3 #*B11110000,(R1),R 


CASE Sect Oe toe ts,. SER e 


: Sign ‘‘digit’’ to R8 
Dispatch on sign 
0 > + 9 


3 ee P 1 

3 a 3; 11 => - 
0$,- : 16 => + 
0$,- é 1 => - 
0$,- : 14 => 4 
0$,- 3 15 => + 

> 


20$: BBS #PSL$V_Z 
ISB. #PSLSM7N 
30$: Rid VAXS$DECI 


R11,30$ ; Skip if Z-bit set (negative zero) 
R11 ; Set N-bit because sign is ‘'="' 
AL_EXIT ; Exit through common code 


“on 
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0086 
.ENABLE LOCAL_BLOCK 
CVTPx_COMMON: 


So ooo 


COODC9 CO GOGO OCDOOO® & OW OM DBAAAAAO 


ROPRAND_CHECK RO Insure that RO LEQU 31 


: ROPRAND_CHECK R2 ; Insure that R2 LEQU 31 
5B OC MOVPSL Ri ; Get initial PSi 
58 04 O00 04 Fe : INSV #PSLSM Cita stele ; Set Z-bit, clear the rest 
ss 3 2 ¢€ SUBL3 2,R0,R ; RS is Length difference 
if 13 BEQL  CVTPx_EQUAL : Life is easy if they're the same 
44 19 BLSS CVTPx_ZERO_FILL ; Fill output with zeros if too large 


+ 
geaereerere srclen GTRU dstlen eeneeerere 


: $33 . SUBTITLE CVTPx_COMMON = Common Code / Packed to Numeric String 
$8 cee ; Functional Description: 
08 445 ; This routine is used by both CVTPS and CVTPT to translate a packed 
. tte 3 decimal string of digits into its ASCII equivalent. 
0B rr ; Input Parameters: 
0B6 447 ; 
0B6 448 ; RO = srclen.rw Length in digits of input decimal string 
0B6 449 ; R1 = srcaddr.ab Address of input packed decimal string 
0B6 450 ; R2 = dstlen.rw Number of digits in destination character string 
Oboe $2) 3 RS = dstaddr.ab Address of destination character string 
0086 138 3 (SP) Address of instruction-specific completion code in CVTPS 
00B6 454 ; or CVTPT routine 
00B6 455; 
00B6 456 ; Implicit Input: 
00B6 457 ; 
00B6 458 ; R10 must contain the address of an access violation handler in the 
booe $23 ; event that any strings touched by this routine are not accessible. 
00B6 461 ; Output Parameters: 
0086 rh ; F , 
00B6 463 ; RO = Size in digits of shorter of source and destination strings 
00B6 464 ; Ri = Address of least significant digit and sign of input ptere 
00B6 465 ; R2 = Number of digits in destination character pre (unchanged) 
94 138 : R35 = Address of Last byte in destination to be loade 
00B6 468 ; R11 contains the partial condition codes accumulated by converting 
00B6 469 ; all but the least significant input digit 
00B6 470; 
00B6 471 ; Side Effects: 
0086 $76 ; 
sie-94 1S 3 R4, R5, and R6 are used as scratch registers by this routine. 
008 $2? 3 R7 through R10 are not used. 
477 
478 
479 
480 
: 1 
183 
484 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


destination string: Bxcegs high order input digits must be discarded. If 
; any of the input digits is not zero, then the V-bit is set in the saved 
; PSW (stored in R11). The low order digits will be moved as in the normal 


o oO 
MEW —OOCOnoOuw 


SOOOoOOoOoOoOOSoOoOoOoOoOOSooSoSoo 
OOoOQoooooooooooo 
4-4-4 -4 4-4-4445 4218 


: The following code executes if the source string is larger than the 
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38 : ; case. A test for whether decimal overflow exceptions are to be generated 
is made as part of final instruction processing. 


D : 
7 R5 = RO = R2 (RS GTRU 0) 
0D 
CVTPx_OVERFLOW_CHECK: 
51 DD PUSHL = R1 ; Save initial input addres 
0B 50 = €8 BLBS RO,10$ ; Skip single digit test for odd Length 
MARK_POINT CVTPx_SAVED_R1 
54 61 046 OO EF EXTZ0 #0,44,(R1),R4~ 3; First digit to R4 (Set R4<31:8> to 0) 
1B «12 BNEQ 40$ :; Skip rest if nonzero. Nothing to be 
: gained by hanging around. 
55 07 DECL R5 ; One less digit to check 
aS INCL R1 ; Point R1 = next byte in input string 
5 Se ree Ff 10S: ASHL #-1,R5,R5 ; Convert digit count to byte count 
ae BEQL 30$ ; Skip loop if no more double digits 
MARK_POINT CVTPx_SAVED_R1 
95 20$: TSTB (R1)+ ; Do rest two digits at a time 
0c ig BNEQ 408 :; Exit loop is nonzero digit 
F9 55—SséF SOBGTR R5,208 3; Check for end of loop 
oc 52 —=SCoéE8 30$: BLBS R2,50$ : No lone digit if R2 odd 
MARK_POINT CVTPx_SAVED_R1 
61 FO 8F 93 BITB #*B11110000, (R1) ; Does upper nibble contain nonzero 
06 13 BEQL 50$ 3 No, so we're all done 


; The following sees executes if any of the discarded digits is nonzero. The 
; V-bit is set in the saved PSw, the, saved Z-bit is cleared, and R1 is 

; updated to point to the remainin ireut string. The large comment at the 

; ne Mca of the module called VAX$D CIMAL explains why the INCL R5 

2 ° 


; instruction is necessary when RO, the length of the shorter copten: is odd. 
5B 04 BA 40$: BICB #PSL$M_Z,R11 ; Clear saved geet 
5B «02 ee BISB #PSLSM~V.R11 ; Set saved V-bit 
Tes Sete 50$: SUBL3 R2,RO,R5 ; Recompute dilieronse (RS GTRU 0) 
: The long comment at the boptnntng of the module explains the reason why 
3; we increment R5 when R2, the length of the shorter string, is odd. 
02 52 €9 BLBC ~ Toes ; Need otlvayeent if odd output string 
55 6 INCL 8 ; Adjust difference 
55 55 _FF or 8 60$: ASHL #-1,R5,R5 ; Convert digit count to byte count 
51 55 E C1 ADDL3 (SP5+,R5,R1 ; Restore’ an updated input pointer 
50 5 dO MOVL R2,RO ; Enter common code with updated 
: “srclen’’ equal to ‘‘dstlen 
09 =«(11 BRB CVTPx_EQUAL ; Join common code 


+ 


geeeeeeere srclen LSSU dstlen eeeeeeeres 


The following code executes if the destination string is longer than the 
beurce string. All excess digits in the destination string are filled 
with zero. 


a kd ad dd od = I I I I QOO OOO OOOO OCOCOCOCOCOSCSOSOOOOOOOOSoOo 


ld ed ed ed ed ed ed ed IDO OOOOOOCO TNH NHN HH HHH HMMMMmMmMmmMmmMmmMmooooo 
SOMOOOOOOD SWMO OOOO OVMPY THM BNO OOO OW A BBN OAS LV SC FP OWOWOWWwoc 


4 
49 
4 
: 
; 
5 
P] 
5 
P] 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
P] 
P) 
5 
5 
5 
5 
5 
5 
5 
; 
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DUPE BBB BBE EE PANINI IIA IPP PIPINPINININIDY) 2 2 OO S| SS QOOOOOOOCOCOOCWOOO 
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11C 3 CVTPx_ZERD_FILL: 
5 SB 6S We : MNEGL R5S,RS ; Make digit count positive 
11F § MARK_POINT Sd aaa 
83 0 2 11F 70$: MOVB #*A''0''/, (R3)+ ; Store a ‘'0"’ in the output 
FA F } 8 SOBGTR R5,70$ ; Check for end of loop 
1 60 ; 
4 5 ] ptrereerere updated sr:len EQL updated dstlen eeererenes 
01 8 : The following code is a common grating point for the three different input 
Bt 64 ; case reyes tig source Length and destination length. Excess source or 
1 65 ; destination digits have alrvady been dealt with. We are effectively 
0125 28 ; dealing with input and output strings of equal length (as measured by 
0125 567 ; number of digits). 
Biss 88 
8 5 $70 CVTPx_EQUAL : : 
18 50 €8 0125 71 BLBS RO,90$ ; No special first digit if RO odd 
50 0 4 8 278 TSTL RO ; Also skip if no remaining digits 
44 1 12A 2 BEQL 1408 
012C 74 MARK_POINT CVTPx_BSBW 
54 61 064 00 EF 0O12C 575 EXTZ0 #0,44,(R1),R4 3; First digit to R4 (Set R4<31:8> to 0) 
03 13 #0131 576 BEQ ; Leave Z-bit alone if zero 
5B 04 BA 4 Z orf BICB #PSL$M_Z,R11 ; Otherwise, clear Z-bit 
1 6 579 MARK_POINT CVT?x_BSBW 
83 FECS CF44 90 0136 2f0 80S: MOVB CVTPx_TABLECRS)],(R3)+  ; Move digit to output string 
51 D6 O13C 581 INCL Ri ; Advance input string pointer 
50 07 Bize 286 DECL RO ; One less digit to process 
55 50 FF 8F 78 0140 584 90$: ASHL #-1,R0,R5 ; Convert digit count to byte count 
21. 13 O143 385 BEQL =: 1208 : ALL done if zero 
0147 259 MARK_POINT CVTPx_BSBW 
54 81 9A 0147 588 100$; MOVZBL (R1)+,R4 : Get next two input digits 
1D 13 O146A 589 BEQL : Step out of Line if both are zero 
5B 04 BA O14C 590 BICB #PSL$M_7,R11 ; Clear saved Z-bit 
56 54 04 O04 EF O14F 591 EXTZV #4, 84,R4 : Get high-order digit 
134 298 MARK_POINT éVTPx BsBu 
83 FEA7 CF46 90 0154 59 nove CVTPx_TABLECR6],(R3)+ =; Move associated character to output 
56 54 FO 8F 8B 015A 59% BICB3 #*B11T10000,R4,R6 : Get low-order digit 
15F 595 MARK_POINT CVTPx BSBW 
83 FE9C CFaG 9 15F 96 MOVB CVTPx_TABLECR6J,(R3)+ ; Move associated character to output 
DF 5 F B63 ad 110$: SOBGTR R5,100$ ; Test for end of loop 
05 198 599 120$: RSB ; Perform instruction-specific 
198 $00 3 end processing 
169 6 § 3; This code is part of the main loop that moves input digits to the output 
169 605 ; string. This code only executes when a digit pair consisting of two zeros 
0169 604 ; is detected. Note that this is an optimization that recognizes that the 
169 605 ; individual Staite do not have to be translated in order to load the 
192 609 3 destination string. 
169 608 MARK_POINT Px_BSBW 
169 09 


CVT 
130$:  MOVW #*a''00"', (RB) +7 ; Move the pair to the output 


83 3030 8F B60 
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FS so BRB 110$ ; Rejoin at the end of the loop 
) 3 pve eevenere too far in the destination a Back up by one byte 
1? 12 3 Fy tet the caller correctly load the final output byte. 
53 od? O17 615 140$: DECL R3 
05 O17 916 RSB 
17 61 
17 618 DISABLE LOCAL_BLOCK 
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9 » SUBTITLE VAXSCVTxP = Convert Numeric String to Packed 


3¢ 

3; Functional Description: 
The conversion from a numeric os to a packed decimal strin 
(CVTSP and CVTTP instructions) consists of much common code an 
— small pieces of code that are wnetruction spect Tie. the 

a pt ond a portion of the end processing. The actual rout 
t path is the common exit path from this module, CANSDECTMAL vEXIT. 

The two routines perform npetrucs Denaseees tte operations on the 
first oxte in the stream. The bulk of the work is done by a common 
subroutine. Some instruction-specific end gressening is done before 
final control is passed to VAXSDECIMAL_EXIT. 
The structure is something Like the following. 


CVTSP CVTTP 


Skip over sign character Store table address 
Unpack registers 


Handle unequal srclen and dstlen 
Move all digits except last digit 
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/ \ 
/ \ 
. * 
v v 
Move last digit to output Use table to move last digit 
87 Move sign to output and sign to output string 
665 H : 
666 \ / 
667 \ / 
9 \, Jf 
670 v v 
671 
ere VAXSDECIMAL_EXIT 
67 Set condition codes and registers 
ore to their final values 
676 ; Input Parameters: 
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vert Numeric String to Pa 5-SEP-1984 00:44: 
See instruction-specific entry points 
Output Parameters: 


RO 
R1 


0 
Address of lowest addressed byte of destination string 
(See instruction-specific header for details) 


Rg = Address of byte containing most significant digit of 
the source string 


Condition Codes: 


N <= destination string LS 
Z <= destination string EQ 
. ra pcm: overflow 


S$ 0 
L 0 


Notes: 


digits. If a character other than the ASCII representation o 


abort is generated. This exception is not restartable. 


one © 


digit and its low nibble contains a legal sign. 


Bete Se Se Se Ge Ge Se Ge Se Ge Ge Se Ge Be Se Se Se Ge Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Se Se Se 


- SUBTITLE Data Declarations / Numeric String to Packed 


of a byte is being loaded (odd numbered digit). 


3; Table for entry into low order nibble 
CVTxP_TABLE_LOW: 
.BYTE “706 , “201 ,. *RO2 . “205 . *ROs 
-BYTE *xX05 , “X06, “X07 , “X08 , “X09 
; Table for entry into high order nibble 


CVTxP_TABLE_HIGH: 
-BYT « 


BYTE “X50 5 “X60 “X90 ¢ *K80 ¢ “X90 


EMULAT.SRCJVAXCONVRT .MAR; 1 


Both of these instructions check the eye strings for qoget cocina 
decimal digit is detected in the input string, a reserved operand 


In addi sion.,.the CVTSP instruction insures that the sign character is 
e ote’. 


The CVTTP instruction uses the highest addressed byte as an offset 
into a 256-byte table. The byte that is retrieved from this table is 
checked to determine that its high nibble contains a legal decimal 


+ 
The following tables contains the decimal equivalents of the ten decimal 
digits. One table is used if the low nibble of a byte is being loaded 
(an even numbered digit). The other table is used when the high nibble 
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. SUBTITLE VAX$SCVTSP = Convert Leading Separate Numeric to Packed 
Functional Description: 
The source numeric string specified by the source length and source 
address operands is converted to a packed decimal string and the 
destination string specified by the destination address and destination 
Length operands is replaced by the result. 


Input Parameters: 


RO = srclen.rw Number of digits in source character string 

Ri = srcaddr.ab Address of input character string 

R2 = dstlen.rw Length in digits of output decimal string 

R35 = dstaddr.ab Address of destination packed decimal string 
Output Parameters: 

RO = 0 

R1 = Address of the sign byte of the source string 

R3 = Address of byte containing most significant digit of 


the destination string 
Condition Codes: 


N <= destination string LS 
destination string EQ 


S 
Z <= L 
V <= decimal overflow 
C <- 0 


oo 


Note that the two entry points VAXSCVTSP and VAXSCVTTP must save the. 
exact same set of registers because the two routines use a common exit 


path that includes a POPR instruction that restores registers. In 
fact, by saving all registers, even if one or two of them are not 
needed. we can use the common exit path from this module. 

VAXSCVTSP:: 
PUSHR = #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> | ; Save the lot 
INCL R1 ; Skip byte containing sign for now 
BSBW CVTxP_COMMON ; Execute bulk as common code 

2 

3; The common code routine returns here with the following relevant input. 

: RO Number of digits remaining in source and destination strings 

; R1 Address of last (highest addressed) byte in source string. 

5 R3 Address of least significant digit and sign of output string 

: R4 R4<31:8> must be zero on input to this routine 

3 R11 Saved PSW with condition codes to date (N=0,2,V,C=0) 

; CVTSP_A_SRCADDR(SP) Saved R1 at input, address of sign character 


R4 is a scratch register 


eee ee 


| Fe 
| VAXSDECIMAL_CONVERT = VAX=-11 Packed Decimal Instruction Emul 1 mtb: tae ee erty: Macro V04-00 Page 
, ¥04-000 VAXSCVTSP = Convert Leading Separate Num 5-SEP-1984 00:44: EMULAT.SRCJVAXCONVRT .MAR; 1 
| 0190 790 ; 
19 791 ; The last input digit is moved to the putes stream, after a check that it 
138 036 ; represents a legal decimal LE A check is also required to insure that 
19 7935 ; the Z=-bit has its correct setting if this digit is the first nonzero gtgie 
190 794 ; encountered in the input string. The sign of the input string is checke 
3138 795 ; for a Legal yglue and transformed into one of two legal output signs, 12 
190 £38 ; for ‘+’ and 13 for "=". 
| O190 Poh 
| 0190 799 MARK_POINT CVTSP_ACCVIO 
63 OC 90 019 800 MOVB #12, (R3) ; Assume that sign is plus 
S93 0198 Bop Beat 89 S Skip storing digit lf noching tere 
: storin nothing le 
| $197 308 MARK_POINT CVTSP_ACCVIO . = . 
“a: ¢t: 3 83 0197 804 SUBB3) = #*A"'0"", (R1) ,RZ ; Get least significant digit 
| i Se Be BY aR LAist galt aes 
| ; Skip clearing Z- zero 
5B 04 BA Q19F 807 BICB #PSL$M_72,R11 ; Clear saved I-bit 
| 09 54 91 BIA 808 108: PB RG #9 ; Check digit against top of range 
| 18 1A QA 809 BGTRU 30$ ; Reserved operand if over the top 
| O1A7 = 810 MARK_POINT CVTSP_ACCVIO 
| 63 D2 AF44 80 bred ai ADDB CVTxP_TABLE_HIGH(R4], (R3) ; Store final output digit 
O1AC a1 MARK_POINT CVTSP_ACCVIO : ‘ 
54 04 BE 9A piag aie 20$: MOVZBL @CVTSP_A_SRCABDR(SP),R4 ; Get sign character from input string 
o180 ig CASE Oh LIRITagAAT "TYPES. <= t : Dispatch on sign character 
” ; Character is ‘‘* 
01B0 818 30$,- ; Sign character is ‘';"' (illegal input) 
0180 819 40$,- ; Character is ‘'=" 
gist ge 
| 20 54 91 QIBA 822 CMPB R4,#*A" ; Slank is also legal ‘'plus sign’’ 
| | ee 01D 823 BEQL §©=s-« 508 
Q1BF 825 ; Error path for all code paths that detect an illegal character in 
pier Ht ; the input stream 
| 0151 +31 Ha as8 30$: BRW DECIMAL_ROPRAND_NO_PC ; Reserved operand abort on illegal input 
Bic5 850 ; The sign of the input stream was ‘'-"", If something other than negative 
oie5 oa) ; zero, set the N-bit and adjust the sign. 
5B 08 88 bite 535 40$: B1SB #PSLSM_N,R11 ; Set N-bit because sign is ‘'~"' 
1¢ 34 MARK_POINT EVTSP_ACCVIO s Pg 
63 96 O01C5 835 INCB (R 3 chenes sign from ‘'+"’ (12) to ‘="' (13) 
09 5B 02 1 O1C7 836 BBC #PSL$V_Z,R11,50$ ; ALL done unless negative zero 
5B O08 A O1CB FH 7 BICB #PSLSM_N,R11 ; Clear the saved N-bit A 
| 0258 01 €0 ibs tts a. eine tetas cys ; The output sign is ignored if overflow 
63 97 01D 840 DECB™ & es ; Change sign back so -0 becomes +0 
| FE29" 31 0104 841 50$: BRwW VAXSDECIMAL_EXIT ; Exit through common code 
| 
| 


SS... 
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/YOe=000 VAXSCVTTP = Convert Trailing Numeric to -SEP-1984 0:20:83 LEMULAT. SREJVAXCONVRT .MARS 1 7 (10) | 
| 107 re 2 » SUBTITLE VAXSCVTTP = Convert Trailing Numeric to Packed | 
| Q 
Df 43 3 Functional Description: 
107 af 3 The source trailing numeric string specified by the source length and | 
107 48 ; source address operands is converted to a packed decimal string and the 
1D7 49 ; destination packed decimal eer ing specified by the destination address 
107 520 : and destination length operands is replaced by the result. 
0107 b2¢ 3 Conversion is effected by using the highest addressed (trailing) byte of 
01D7. Ss 853; the source string as an unsigned index into a 256 arte table whose 
ata B2¢ 3 zeroth entry is specified by the table address operand. The byte read 
1D7 a2 3 out of the table replaces the highest addressed byte of the destination 
| 01D7 $29 ; string (i.e. the byte containing the sign and the least significant 
0107 857 ; digit). The remaining packed digits of the destination string are 
0107 +=858 ; replaced by the low order 4 bits of the corresponding bytes in the 
01D7 = 859 ; source string. 
01D7 +=860 ; 
01D7 861 ; Input Parameters: 
01D7 Boe : 
0107 863 ; RO <15:0> = srclen.rw Number of digits in source character string 
O1D7 = 044 RO <31:16> = dstlen.rw Length in digits of output decimal string 
O1D7 = 865 ; R1 = srcaddr.ab Address of input character string 
0107 866 ; R2 = tbladdr.ab Address of 256-byte table used for sign conversion 
g107 Ht $ R3 = dstaddr.ab Address of destination packed decimal string 
01D7 869 ; Output Parameters: 
01D7 = 870 ; 
01D7 = 871 ;x RO = 0 ee 
3444 HG ; +! = Address of most significant digit of the source string 
QiD? = 874 R3 = Address of byte containing most significant digit of 
Q1D7) 875 the destination string 
v1D? = 876 ; 
v1D? =877 ; Condition Codes: 
0107 = 878 ; : F 
0107 879 ; N <= destination string LSS 0 
01D7 = 880 ; Z <- destination string EQL 0 
0107 = 881 ; V <= decimal overflow 
0107 Ho ; C <- 0 
01D7 83 ; 
01D7 884 ; Notes 
0107 885 ; 
0107 Hi ; 1. Note that the two entry points VAXSCVTSP and VAXSCVTTP must save the. 
0107 : exact same set of registers because the two routines use a common exit 
01D7 888 ; path that includes a POPR instruction that restores registers. In | 
0107 4 : fact, by saving all registers, even if one or two of them are not 
| B10? Say : needed, we can use the common exit path from this module. 
oi? 35 : 2. See the routine header for CVTPT for an explanation of the _JSB and 
107 93 ; RESTART entry points. 
OID? 89S | 
107 38 ; There is a single case where the common subroutine cannot be used. If the 
107 97 ; output length is zero, then the final character in the input string would 
107 98 ; be Pye jected to the rather stringent legality test that it lie between 
| 107 99 ; ASCII 0 and ASCII 9. In fact, it is the translated character that must be 
| | 
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| VAXSDECIMAL_CONVERT = VAX=11 Packed Decimal 1:34: AX/VMS Macro V04-00 Page 20 
-v04=000 VAXSCVTTP = Convert trailing Numeric to ~SEP=1984 b0:44:83 LEMULAT. SRCIVAXCONVRT MAR: 1 . i; 
| 107 900 ; tested. There are three cases. | 
107 $0¢ ; The input length is also zero. In this case, the common code path can 
1D? - 903 ; be used because the input and output length are equal. (In fact, the 
107 904 ; subroutine does Little more than set the condition codes and load 
O10? 3 '¥4 ; registers. | 
| 107 309 : The input consists of a single character. In this case, this single 
0107 908 ; character is translated and tested for pega: itz. Note that the 
| at 4 890 ; subroutine is also called here to set condition codes and the Like. | 
Bid! 911 : The input size is larger than one. In this case, the common subroutine 
1D7 318 8 is called with the input size reduced by one. The leading characters 
0107-913; are tested by the subroutine which returns here to allow the final 
pipe aie 3 character to be tested. 
0107 916 : Note that this is not a commonly travelled code path so that the seemingly 
0107 917 ; excessive amount of code necessary to achieve accuracy is not a performance 
01D7 918 ; problem. 
0107-919 
ates 980 «ENABLE LOCAL_BLOCK 
01D7 856 1$: ROPRAND_CHECK RO ; Insure that RO LEQU 31 | 
3¢)60— «13—«OO1E2 = 92 BEQL 5$ ; Back in Line if source length zero 
50 =D? «(O1ES4) = 924 DECL RO ; Reduce input length by one 
OO8E 30 O1F6 925 BSBW CVTxP_COMMON ; Check leading digits for legality 
O1E9 926 MA CVTTP_ACCVIO 
54 61 QA O1E9 927 MOVZBL (R1),R4 ; Get last input byte 
O1EC 928 MARK POINT CVTTP_ACCVIO 
54 6944 9A OIEC 929 MOVZBL (R9)CR4],R4 ; Get associated output byte from table 
01FO 930 MARK POINT CVTTP_ACCVIO 
63 54 FO 8F 8B O1FO 931 BIC #*B11110000,R4, (R3) ; Only store sign in output string 
50 06 046 EF O1FS 932 EXTZV #4,44,R4,R0 3; Get low-order digit 
44 13 OA 933 BEQL 1 ; Join exit code if zero 
5B 402 «688 «(OFC 6934 BISB2 #PSLS$M_V,R11 ; Set V-bit in saved PSwW 
_ ee. Bee je Ld eS CMPL RO, #9 ; Is the digit within range? 
3C 618 «60202 «= 936 BLEQU§ 10 : Yes, join the exit code | 
010c)=—Oss&5311 b503 aan BRW DECIMAL_ROPRAND_NO_PC =; Otherwise, report exception | 
0207 939 VAXSCVTTP_JSB:: 
0750 OF €5 0505 Bey BBCC #CVTTP_V_FPD,RO,VAXSCVTTP ; Have we been here before? 
S44 oes ASSUME CVTTP_B_DELTA_PC EQ 3 ; Make sure that we clear the right byte | 
$508 944 VAXSCVTTP_RESTART:: ; = | 
50 FFOOOOOO 8F CA bee ee? BICL2 #*XxFF000000,R0 ; Eliminate delta-PC from ‘‘dstlen 
021 947 VAX$CVTTP:: | 
OFFF 8F BB 8 1 948 PUSHR #*M<RO,R1,R2,R5,R4,R5,R6,R7,R8,R9,R10,R11> ; Save the lot 
39 34 DO 0216 949 Ov ; Store table address away 
a oS ee EF 0219 950 EXTZV #16,#16,R0,R2 ; Store ‘‘dstlen’’ in R 
a 13. 021 951 BEQL 1$ ; Perform extraordinary check if zero 
0054 30 ; 826 5$ BSBW CVTxP_COMMON ; Execute bulk as common code | 
954 ;+ 
§ 922 ; The common code routine returns here with the following relevant input. | 
| | 
| | 
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| VAXSDECIMAL_CONVERT = VAX-11 Packe 984 01:34: AX/VMS Macro V04-00 Page 21 
VOe~000 VAXSCVTTP = Convert Trailing Numeric to -3bb= 138 0346333 EMULAT.SRCJVAXCONVRT.MAR; 1 . fd 
| 957 ; RO Number of digits remaining in source and destination strings 
328 ; R1 Address of last (highest addressed) byte in source string 
959 ; R3 Address of least significant digit and sign of output string 
0 960 ; R9 Address of 256-byte table (preserved across call) 
| 8 42 : R11 Saved PSW with condition codes to date (N=0,2,V,C=0) 
: Ss a scratch register 
ses R4 i h j 
0 965 ; The Last byte of the input string is used as an index into the 256-byte 
0 ae8 ; table that contains the last output byte. The contents of this byte are 
| 0 967 ; tested for a legal decimal digit in its upper nibble and a legal sign 
0 443 ; representation (10 porous 15) in its low nibble. The Z-bit is cleared 
0 969 ; if the digit is 1 through 9 to cover the case that this is the first 
022 970 ; nonzero digit in the input string. 
099 oho 
50 D5 05 358 TSTL RO ; Check for no remaining input 
4A 13 0225 974 QL ; Special case if input Length now zero 
bssi 975 MARK_POINT CVTTP_ACCVIO 
54 61 QA 0227 976 MOVZBL (R1), ; Get Last input byte 
ossh 977 MARK POINT CVTTP_ACCVIO 
54 6944 9A O022A 978 MOVZBL (R9)CR4],R4 ; Get associated output byte from table 
022—E 979 ARK_POINT CVTTP_ACCVIO 
63 54 90 Oeee 980 ove R4, ; Store in destination strin 
50 54 046 04 EF 0231 981 EXTZV #4,#4,R4,R0 ; Get least significant digi 
08 13 0236 ons BEQL 10$ : Skip clearing Z-bit if zero 
09 50 91 0238 98 CMPB RO,#9 3; Check for legal range 
18 14 Q23B 984 BGTR 2 ; Reserved operand if 10 through 15 
5B 04 8A 0230 985 BICB #PSL$M_7,R11 ; Clear saved Z-bit 
50 54 FO 8F 8B 9240 986 10$:  BICB3 #*8111T0000,R4,R0 : Sign digit’ to RO 
0245 988 CASE RO,LIMIT=#10,TYPE=B,<- ; Dispatch on sign 
0245 989 50$,- 3 10 => + 
0245 990 30$,- 3 11= - 
0548 992 208. : i$ - 
0245 99 50$.- : 14 => + 
0245 994 50$,- 3 15 => + 
Bee a 
00BBOUéH OS2e 444 208: BRW DECIMAL_ROPRAND_NO_PC ; Reserved operand if sign is 0 to 9 
0 ; 1308 ; A minus sign of 11 must be changed to 13, the preferred minus representation 
3 5 1004 MARK_POINT CVTTP_ACCVIO 
63 02 80 0258 1 OF 30$: ADDB2 #2,(R3) ; Change 11 to 13, preferred minus sign 
58 4208 ~=88 6 5B 1003 40$:  BISB  #PSL$M_N.R11 : Set N-bit because sign is ‘‘=' 
OC 5B 02 # 5E 1004 BBC #PSL$V_Z,R11,60$ ; ALL done unless negative zero 
58 «08 A 8 6 1302 BICB #PSLSM_N,R11 ; Clear the saved N-bit 
05 58 O01 €0 $2 1908 BBS #PSL$V_V,R11,60$ 3; The output sign is ignored if overflow 
69 1008 ; If the sign character is a 10, 14, or 15, it must be changed to a 12, the 
| 3 139 ; preferred plus sign before joining the exit code. 
69 1011 MARK_POINT CVTTP_ACCVIO 
63 04 00 oc FO 69 1 \ 208: INSV #12,80,44, (R37 ; Store a 12 as the output sign 
FD8F* 31 6— 1015 60S: BRW VAXSDECIMAL_EXIT ; Exit through common code 
L 
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| VAXSDECIMAL _CONVERT = VAX-11 Packe 84 01:34:35 VAX/VMS Macro V04-00 Page 22 = 
v04-000 VAXSCVTTP = Convert Trailing Numeric to 5=SEP=1984 00:44:53 CEMULAT.SRCJVAXCONVRT.MAR; 1 (10) & 
71. 1014 
6 71 1818 ; If the source Spreng has zero length, the destination is set identically 
0271 1918 ; to zero. The following instruction sequence assumes that the Z-bit was 
8 4 eit 3 set in the initialization code for this routine. 
71 +1019 MARK _POINT CVTTP_ACCVIO 
63 Oc 90 71 18 0 70$: MOVB #12, (R3) ; Store ‘'+"' in output string 
FD89" 31 0 2 19 1 BRW VAXSDECIMAL_EXIT : Exit through common code 
ost? 10 4 - DISABLE LOCAL_BLOCK 


j 
SS ee EE EE EEEEOEOEOEEEEOEOEOEEEE 


FP RISER DN LG A RRR RMN are ss ak Blak AE staal ages ME SF i RN 


H 
AX Bh SM. CONVERT cked Decimal Instruction Emul 16-SEP-1984 4:34:33 AX/VMS Macro V04-00 Page 23 
N = Common Code / Numeric Str 5=-SEP-1984 00:44: EMULAT.SRCJVAXCONVRT MAR; 1 (11) 


- SUBTITLE CVTxP_COMMON = Common Code / Numeric String to Packed 


Ux 
ow 


Functional Description: 


ge routine is shared by both CVTSP and CVTPT to translate an ASCII 
echell that contains only the characters ‘'0'' to ‘'9"’ into an equivalent 
reserved operand exception generated if an illegal digit is 
encountered. 


decimal string. A check is made for legal input digits and a 


; Input Parameters: 


srclen.rw Number of digits in source character string 
srcaddr.ab Address of first digit in input character string 
dstlen.rw Length in digits of output decimal string 
dstaddr.ab Address of destination packed decimal string 


z@ 
—_ 
nauun 


(SP) Address of instruction-specific completion code in CVTSP 
or CVTTP routine 


; Output Parameters: 


Address of lowest addressed byte of source string 
(See instruction-specific header for details) 
Re = Number of digits in destination packed decimal string 
R3 = Address of ores containing most significant digit of 
the destinat 


R11 contains the partial condition codes accumulated by converting 
all but the least significant input digit 


on string 


Implicit Output: 
R4<31:8> is zero to insure that CVTSP works correctly 
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R10 is loaded with the address of an access violation handler in the 
event that any strings touched by this routine are not accessible. 


: 7 = Size in digits of shorter of source and destination strings 
: Side Effects: 
: R4 and RS are used as scratch registers by this routine. 
; R6 through R9 are not used. 
-ENABLE LOCAL_BLOCK 
CVTxP_COMMON: 
ROPRAND_CHECK RO 
ROPRAND_CHECK R2 


MOVPSL 

INSV. _#PSL$M_7,#0,44,R11 

ESTABLISH_HANDCER - 
CONVERT ACCVIO 

SUBL3. -R2, RO, RS 

BEQL  CVfxP“ EQUAL 


Insure that RO LEQU 3] 
Insure that R2 LEQU 31 
Get initial PSL 
Set Z-bit, clear the rest 
Store address of access 
y*9har ten handler 
R5 is length difference 
Life is easy if they're the same 


w 
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VAXSDECIMAL_CONVERT = VAX-11 Packed Decimal Instruction Emul 1 might 7 OT ae ae AX/VMS Macro V04-00 Page $4 
Vv04- CVT xP ON = Common Code / Numeric Str 5=SEP-1984 00:44: EMULAT.SRCJVAXCONVRT .MAR; 1 (11) 


1B O99 BLSS CVTxP_ZERO_FILL ; Fill output with zeros if its too large 


+ 

s gkeeereeee srclen GTRU dstlen eeeteeeeee 
The following code executes if the source string is larger than the 
destination string. Excess ti order input digits must be discarded. If 
ony of the input digits is not zero, then the V-bit is set in the saved PSW 
ored in R11). In addition, digits must be checked for legal values 
(ASCII 0 through ASCII 9) before they are discarded in order to determine 
whether to generate a reserved operand abort. The low order digits will be 
moved as in the normal case. A test for whether decimal overflow exceptions 
are to be generated is made as part of final instruction processing. 


R5 = RO = R2 (RS GTRU 0) 


CVTxP_OVERFLOW_ CHECK: 
MARK_POINT CVT xP_ 
108: CMPB (R1)+,#*A''0"' : Is digit ASCII zero? 
BNEQ 3 ; Exit loop if other than zero 
20$: SOBGTR R5,10$ ; Test for more excess digits 


MOVL 
BRB 


o 
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R2,RO 3 Update input length for skipped digits 
CVT xP_EQUAL 3 tein common cose” . 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
0 
0 
0 
0 
0 
0 
0 
08 ; The following code executes if any of the discarded digits is nonzero. 
09 ; If the digit is the ASCII representation of a decimal digit, then the 
3; V-bit is set in the saved PSW and the saved Z-bit is cleared. The loop 
; is reentered where we left it to continue the search for legal input 
; digits. (Note that this is different from the CVTPx case where, once an 
3; overflow was detected, the remaining excess input digits could be skipped.) 
15 30$: BLSSU 408 ; Reserved operend if outside range 
BISB #PSLSM_V,R11 :; Set saved V-bit 
MARK_POINT CVTxP_BSBW 
CMPB -1(R1) ,#*A''9" 3 compare digit to ASCII 9 
BLEQU 208 ; Back in loop if inside range 
40$: BRW DECIMAL _ROPRAND : Signal illegal digit abort 


1 
1 
1 
1 
1 
1 
1 
1 
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. teeeeerert srclen LSSU dstlen eeeeeeeeee 


POPIPORIPIPIPIPIPININIDIPINININPININPINININININIPYINIPYNPIPoPynofny 


BOwwWwonDwwIOw> 


; source string. ALL excess digits in the destination string are filled 


g 
4 
5 
5 
8 
9 
0 
1 
g 
4 
5 
5 
8 
9 
0 
1 
g 
4 
5 
6 
7 
8 
9 
0 
1 
: 
4 
5 
6 
7 
8 
g 
0 
1 
: 
4 
5 
$ ; with zero. 
8 . 
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; The following code executes if the destination string is longer than the 


CVTxP_ZERO_FILL: 
MNEGL R5,R5 ; Make digit count positive 


0 
1 
i BLBC RO,50$ ; Different code paths for even and odd 
: : input string sizes (the shorter one) 
8 


: Shorter string has odd number of digits. Note that the divide by two can 

3; never produce zero because R5 is olveys nonzero before the INCL so that R5 
e 
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0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
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; is always at least two before the div takes place. The comment at the 
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| VAXSDECIMAL_CONVERT = VAX-11 Packed Decimal Instruction Emul 16-SEP-1984 01:34: AX/VMS Macro V04-00 Pa 5 
V04= CVTxP_COMMON = Common Code / Numeric Str ~3Fb=1 $84 boiad:83 LEMULAT. SREIVAXCONVRT .MAR: 1 5) i) 
BF 1139 ; beginning of the module explains the two different code paths based on the 
| + 1329 ; parity of the input (shorter) otrine. : 
55 06 BF 114 INCL R5 3; Adjust before divide by two 
| >» 3 6 FT eS C1 1128 EXTZV #1,#4,R5,R5 3 rene digit count to byte count 
07 «11 c 1144 BRB 60§ : Join common loop 
: 1148 ; Shorter string has an even number of digits. 
>» 2 S@ C8 1148 50$: EXTZV #1,#4,R5,R5 3; Convert digit count to byte count 
05 13 cD 1149 BEQL  CVfXP_EQUAL $ No Loop if byte count is zero 
CF 1133 MARK _POINT CVTxP_BSBW 
83 94 CF 1136 60$: CLRB (R3)+ ; Store a pair of zeros in output string 
FB 55 =«FS D1 #115 SOBGTR R5,60$ ; Test for more bytes to clear 
Bspe 1154 
0204 1155 3+ 
024 1138 peteeeeeeee updated srclen EQL updated dstlen eeeteereee 
0204 1158 : The following code is a common meeting point for the three different input 
0204 1159 ; cases relating source length and destination length. Excess source or 
0204 1160 ; destination digits have already been dealt with. We are effectively 
02D4 1161 ; dealing with input and output strings of equal length (as measured by 
0204 1196 3 number of digits). 
0204 1163 ;- 
0204 1164 
02D4 1165 CVTxP_EQUAL: 
54 D4& O2D4 1166 CLR R4 3; Insure that R4<31:8> is zero 
55 50 04 01 #4=xEF 0206 1167 EXTZV #1,#4,R0,R5 ; Convert digit count to byte count 
me Bees 1198 BEQL 116$ ; Down to Last digit if zero 
O2DD 1170 ; If the count of remaining digits is even, we need to jump into the middle 
02DD 1171 ; of the loop. But the store operation in the second half of the loop uses a 
02DD 117% 3; BISB2, assuming that the high order nibble is already cleared (which it is if 
0200 1173 ; we also execute the first half of the loop). In order to insure that the high 
02DD 1174 ; order nibble has a zero stored in it, we jump to the last instruction of the 
O2DD 1175 ; first half of the loop. Because we just cleared R4, the MOVB instruction at 
he 1176 ; 90$ stores a zero in the appropriate byte of the output string. 
10 50 =€9 020p YA BLBC RO,90$ : To middle of loop if digit count even 
03e0 1180 MARK_POINT CVTxP_BSBW 
54 81 30 83 O2EO 1181 70S: SUBB3) = #*A"'0""" (R1) +, R4 ; Convert ASCII to digit 
D 1F E4 11 § BLSSU 40$ ; Abort instruction if out of range 
0 13 £6 11 BEQL 80$ : Do not clear Z-bit if digit is zero 
5B 404 BA E8 1184 BICB #PSL$M_Z,R11 ; Clear Z-bit when digit is 1 to 9 
09 54 = «(91 EB 1185 80$: CMPB R4,#9 ; Check for other end of range 
C6 «1A : 1186 BGTRU 40$ : Abort if outside the other end, too 
F 11 8 MARK_POINT CVTxP ae 7 
63 FEBS CF44 890 4 1 3 90$: MOVB CVTxP_TABLE_HIGHLR4], (R3) ; Store digit in high nibble 
F6 1191 ; Note that the above instruction also clears out the low order four bits in 
5 1138 3 the currently addressed byte in the output packed decimal string. 
F6 1194 MARK_POINT CVTxP_BSBW ; 
54 81 30 83 F6 1195 SUBB3 = #*A"'0"'_, (R1) +, R4 : Convert ASCII to digit 
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VAX IMAL CONVERT = VAX=-11 Packed Decimal Instruction Emul 16-SEP- 1:34: AX/VMS Macro V04-00 Page 
VOue008 2 CVTxP_COMMON = Common Code / Numeric Str 5-SEP- 1984 80; 744; 33 YEMULAT. SRC JVAXCONVRT .MAR; 1 . (3) 
A iF FA 1136 BLSSU 4 ; Abort instruction if out of range 
ee FC 113 BEQL 100$ ; Do not clear Z-bit if digit < sgero 
58 4 . Ff 11 8 BICB #PSL$M_Z,R11 ; Clear Z-bit when n digit di 
09 4 1 8 1199 100$:  CMPB R4,#9 ; Check for other end of range 
BO 1A 4 1200 BGTR u, tos. ; Abort if outside the other end, too 
06 1201 MARK_ POINT CVTx 
83 FE68 CF44 88 se O BISB2 CVTxP_TABLE *tOuER«), (R3)+ ; Store digit in low nibble 
01 33 SCF SS 030 ! be SOBGTR R5S,70$ ; Test for end of loop 
05 O30F 1206 110$: RSB 3; Perform instruction-specific 
0310 1207 : end processing 
0310 1208 
0310 1209 - DISABLE LOCAL_BLOCK 
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SEP-19 
DECIMAL_ROPRAND 


EMULAT.SRCJVAXCONVRT .MAR; 1 
» SUBTITLE 


Functional Description: 


This routine receives control when a digit count larger than 31 
is detected. The exception is architecturally defined as an 

abort so there is no need to store intermediate state. All of the 
routines in this module save all registers RO through R11 before 
et iain the digit check. These registers must be restored 
efore control is passed to VAX$ROPRAND. 


; Input Parameters: 


Entry at DECIMAL_ROPRAND 


OO(SP) = Return PC from common subroutine (discarded) 
04(SP) = Saved RO \ 


> Restored 


48(SP) = Saved R11 / 
52(SP) = Return PC from VAX$xxxxxx routine 


Entry at DECIMAL_ROPRAND_NO_PC 
OO(SP) = Saved RO 4 
> Restored 


44(SP) = Saved R11 / 
48(SP) = Return PC from VAX$xxxxxx routine 


; Output Parameters: 


OO(SP) - Offset in packed register orray to delta PC byte 
O4(SP) = Return PC from VAX$xxxxxx routine 


The two flags in this longword (PACK_M_FPD and PACK_M_ACCVIO) 
are both clear in the case of a reserved operand abort. 


; Implicit Output: 


This routine passes control to VAX$ROPRAND where further 
exception processing takes place. 


This routine can be entered either from internal subroutines or from 
the callers of these subroutines. The DECIMAL_ROPRAND entry point is 
used when the return PC is on the stack because that is the name of 

the routine that is qutomat ically invoked by the ROPRAND_CHECK macro 
when an illegal digit count is detected. The other name Ts arbitrary. 


ASSUME CVTPT_B_DELTA_PC EQ CVTPS_B_DELTA_PC 
ASSUME CVTSP_B_DELTA_PC EQ CVIPS_B_DELTA_PC 
ASSUME CVTTP_B_DELTA_PC EQ CVTPS_B_DELTA_PC 
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DECIMAL_ROPRAND: 


4,$P 


L a4, 
oer Se NO PC: 


OPR “#*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RO 


PUSHL 
BRW 


#CVTPSB DELTA_PC 
VAXSROPRAND 


; Discard return PC from common routine 


R10,R11> 
3; Store offset to delta PC byte 
; Pass control along 


| 
| 
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: - SUBTITLE CONVERT_ACCVIO = Reflect an Access Violation | 
: Functional Description: 


This routine receives control when an access violation occurs while 
executing within the emulator routines for CVTPS, CVTPT, CVTSP, or 


OOOOCOCOCOCOCSOCO 7 


The routine header for ASHP_ACCVIO in module VAXS$ASHP contains a 
detailed d@scription of access violation handling for the decimal 
string instructions. 


AOOOOOOOOOO yY 


Input Parameters: 

See routine ASHP_ACCVIO in module VAXSASHP 
Output Parameters: 

See routine ASHP_ACCVIO in module VAXS$ASHP 


CONVERT_ACCVIO: 
CLRL R 3; Initialize the counter 

PUSHAB MODULE_BASE Store base address of this module 

SUBL2 (SP)+,R1 Get PC relative to this base 


108: CMPW R1,PC_TABLE_BASECR2] ; Is this the right PC? 
BEQL og ; Exit loop if true 
AOBLSS #TABLE_SIZE,R2,10$ ; Do the entire table 


:; If we drop through the prenetenine based on PC, then the exception is not 
m 
| 


52 

FCDE CF 

i ae 
OOOO'CF42 51 
07 

F452 29 


3 one that we want to back up. We simply reflect the exception to the user. 


20$: POPR #*M<RO,R1,R2,R3> 3; Restore saved registers 
RSB ; Return to exception dispatcher 


OF BA 


; The exception PC matched one of the entries in our PC table. R2 contains 
; the index into both the PC table and the handler table. R1 has served 
; its purpose and can be used as a scratch register. 


308: MOVZWL HANDLER_TABLE_BASECR2),R1 ; Get the offset to the handler 
JMP MODULE _BASECRT) ; Pass control to the handler 


w 

— 
mal =) 
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NO 


; In all of the instruction-specific routines, the state of the stack | 
: will be shown as it was when the exception occurred. All offsets will | 
; be pictured relative to RO. 
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» SUBTITLE Context=Specific Access Violation Handling 


VAXSDECIMAL_CONVERT = VAX-11 Pac 
v04-0 Context-Spe 


: Functional Description: 


It is relatively simple to back out any of these four instructions 
because their use of stack space is so simple. Each c* the four 
routines contains a certain amount of initialization or completion 
code that uses no stack space (over and above the saved register 
array). Additional processing occurs one level — in a subroutine 
where there is a return PC on the stack that must be discarded. 


k 
ci 
1 
1 
1 
1 3 
1 ; 
1 ; 
1 ; 
0 1 : 
0 1 : 
0 1 : 
0 1333 ; 
8 ; 1 3; Input Parameters: 
O33 13 : RO - Address of top of stack when access violation occurred 
033 13 ; See specific entry points for details 
O33 1329 3; Output Parameters: 
O33 1306 : See input parameter List for VAXSDECIMAL_ACCVIO in module VAX$ASHP 
O33F 1344 
O33F 1345 ;+ 
O33F 1346 ; CVTPx_SAVED_R1 
O33F 1347; 
QO33F 1348 ; An access violation occurred in routine CVTPx_COMMON along the code path 
O33F 1349 ; where the intermediate value of R1 is stored On the stack along with the 
base 1329 3 return PC. This must be disacrded. 
oes 1326 : 00(RO) = Saved intermediate value of R1 
O33F 1355; 04(RO) = Return PC in mainline of VAXSCVTPS or VAXSCVTPT 
O33F 1354; 08(RO) = Saved RO 
O33F 1355; 12(RO) = Saved R1 
O33F 1356; etc. 
O33F 1357 :- 
O33F 1358 
033F 1359 CVTPx_SAVED_R1: 
50 04 CO Size 1369 ADoC #4,R0 3; Skip over saved R1 and drop into ... 
034 136¢ 3+ 
bse : a7 ; CONVERT_BSBW 
0342 1365 ; An access violation occurred somewhere in CVTPx_COMMON or CVTxP_COMMON. 
Oe } $6 ; The return PC must be discarded. 
034 1368 : QO(RO) = Return PC in VAXSCVTPS, VAXSCVTPT, VAXSCVTSP, or VAXSCVTTP 
0342 1 +4 : 04(RO) = Saved RO 
0342 1370; 08(RO) = Saved R1 
0342 1371; etc. 
0342 #1 i- 
0342 137 
0342 1374 CVTPx_BSBW 
Mn 1375 CVTxP_BSBW: 
50 04 CO ? ! 16 ADDL #4,R0 ; Skip over return PC and drop into ... 
33 1 4 3+ 
45 1379 ; CONVERT_ACCVIO 


EMULAT.SRCJVAXCONVRT.MAR; 1 (14). 
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Context-Speci Access Violati on Hand “SEP=1 EMULAT.SR aVAX XCONVRT.MAR; 1 
45 1380; 
45 1 ; The access violation occurred in one of the four outer routines where 
45 1 3; nothing other than the saved reg'etere has been pushed onto the stack. 
45 1 ; Nothing more needs to be dons egisters or the stack before 
45 1384 ; transferring control to VAXSDEC IMAL ace 10. These entry points are merely 
8 $2 : 5 ; a convenience. 
8 ‘3 1 - 3 O(SP) = Saved RO 
45 1388; 4(SP) = Saved R1 
8 45 1389 ; O8(SP) = Saved R 
45 1390 ; 12(SP) = Saved R 
8 45 1391; etc. 
45 1 3 os 
0345 139 
Oeee 1394 CVTPS_ACCVIO: 
0345 1395 CVTPT_ACCVIO: 
0345 1 38 CVTSP_ACCVIO: 
0345 1397 CVTTP_ACCVIO: P ; 
FCBB" 31 ote 1338 BRW VAX$DECIMAL_ACCVIO ; Join common code to restore registers 
0348 1400 ~ END 


- 
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PX"EQUAL 
CVTPX~OVERFLOW_CHECK 
CVTPX"SAVED_R1 
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CVTXP_EQUAL 
CVTXP_OVERFLOW_CHECK 
CVTXP_TABLE_HIGH 
CVTXP_ TABLE LOW 
CVTXP-ZERO FILL 
DECIMAL_ROPRAND 
DECIMAL_ROPRAND_NO_PC 
HANDLER” TABLE_BASE 
MODULE BASE 
PC_TABCE_BASE 

PS N 
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VAXSCVTTP_JSB 00000 
VAXSCVTTP_RESTART 00000 
VAXSDECIMAL_ACCVIO etereree 
VAXSDECIMAL_EXIT eeereeee 
VAXSROPRAND teeereee 


oO 

Moron 

a 
SOoQooCooooooo 
SOOPronronronrononynyny 


x< x 


VAXSDECIMAL ee 


E 2 
- VAX-"* Packed Decimal Instruction Emul yt ie 
Psect synopsis -SEP=} 


Be O0:4 
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Phase Page faults CPU Time Elapsed Time 
Initialization 15 00:00:00.07 00:00:01.87 
Command processing 77 00:00:00.50 00:00:04.79 
Pass 1 166 00:00:05.44 00:00:19.35 
synbol table sort 0 00:00:00.16 Bo? 89209 «Se 
Pass 2 248 00:00:02.79 00:00:12.1 
Symbol table output 7 B88 on oe 00:00:00.06 
Psect synopsis output 2 00:00:00.0 00:00:00.45 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 515 00:00:09.05 00:00:39.49 


The working set Limit was 1200 pages. 

31903 bytes (63 pages) of virtual memory were used to buffer the intermediate cod 

There were 10 pages of symbol table goece allocated to hold non-local and 60 local symbols. 
1400 source Lines were read in Pass 1 "aon 21 object records in Pass 2. 

19 pages of virtual memory were used to define 17 macros. 
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Macro Library name 


etittttrys EMULAT.OBJJVAXMACROS.MLB; 1 9 
$255$DUA28: SYSLIBISTARLET. MLB;2 5 
TOTALS (all Libraries) 14 


249 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:VAXCONVRT/OBJ=OBJ$:VAXCONVRT MSRC$: VAXCONVRT/UPDATE=(ENHS$: VAXCONVRT) +LIB$: VAXMACROS/LIB 


PSECT name Allocation PSECT No. Attributes 

: 00000000 “¢ 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 

SABSS ed ( 0.) 4 ( -) NOPIC USSR CON =H LCL NOSHR EXE RD 
VAXSCODE 0000348 ( 840.) § ( { PIC USR CON REL LCL SHR_ EXE 
PC_TABLE 00000052 ( 4 a 8 ( ot PIC USR CON REL LCL SHR NOEXE 
HANDLER_ TABLE 00000052 < -)> 06¢ 4.) PIC USR CON REL LCL SHR NOEXE 


v04-00 
JVAXCONVRT .MAR; 1 
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NOWRT NOVEC BYTE 


RD NOWRT NOVEC BYTE 


33 
(14) 


0143 


PM 
A 


AH-BT13A-SE 
VAX/VMS_V4.0 


ENT CORPORATION 
ND PROPRIETARY 


0144 AH-BT1i3A-SE L EQUIPMENT CORPORATION 
VAX/VMS V4.0 ENTIAL AND PROPRIETARY 


